home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / dcg301up / bartende.scr < prev    next >
Text File  |  1993-05-25  |  4KB  |  186 lines
  1. !
  2. ! Default bartender script..
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6. ! Pending Enhancements
  7. !
  8. ! - This script has no voices.  For an example of voices, look at
  9. !   MERCHANT.SCR and HEALER.SCR
  10. !   
  11.  
  12. !------------------------------------------------------------------------!
  13. :@TALK ! Talk to the character !
  14. !------------------------------------------------------------------------!
  15.  
  16. ! First, say hello.. !
  17.   if NPC.V(0) > 0 then
  18.     writeln( "Hello ", player.name, ". What brings you back?" );
  19.   else
  20.     writeln( "Welcome to ", npc.name, ". How may I help you?" );
  21.   endif;
  22.  
  23. ! NowF, set some variables..
  24.   NPC.V(0) = 1;             ! From know on, remember we've been here
  25.   L(1) = 0;                 ! No business transactions have taken place
  26.   L(4) = npc.value / 5 + 1; ! Standard Tip Amount !
  27.  
  28. :LOOP
  29.  
  30.   L(3) = select$( "Buy Drink",  npc.value,
  31.                 "Give Tip",     L4,       ! Can't use X(y) on select !
  32.                 "Talk",         -1 );
  33.  
  34.   ON L(3) GOTO DRINK,TIP,XTALK;
  35.  
  36. :CSTOP
  37.   if L(1) = 0 THEN
  38.     writeln( "Hasta la vista, baby." );
  39.   else
  40.     writeln( "It's been a pleasure doing business with you!" );
  41.   endif;
  42.   STOP;
  43.  
  44. !
  45. ! Drink
  46. !
  47. :DRINK
  48.  
  49.   if group.gold < npc.value GOTO BROKE;
  50.  
  51.   dec( group.gold, npc.value );
  52.   ON L(1) GOTO DRINK1, DRINK2, DRINK3, DRINK4;
  53.  
  54.   writeln( "No more beer for you.." );
  55.   GOTO LOOP;
  56.  
  57. :DRINK1
  58.   writeln( ">Ahhh.. That really hit the spot.." );
  59.   inc(L1);
  60.   goto LOOP;
  61.  
  62. :DRINK2
  63.   writeln( ">Excellent brew, yes sir.." );
  64.   inc(L1);
  65.   goto LOOP;
  66.  
  67. :DRINK3
  68.   writeln( ">Glugh, glugh, glugh, hic!" );
  69.   inc(L1);
  70.   goto LOOP;
  71.  
  72. :DRINK4
  73.   writeln( ">Glugh, glugh, burp!  Sorry.." );
  74.   inc(L1);
  75.   if random(2) then     ! 50 % chance of getting sick..
  76.     player.poisoned = 1;
  77.     writeln( "(You feel sick..)" );
  78.   endif;
  79.   goto LOOP;
  80.  
  81. !
  82. ! Give TIP
  83. !
  84. :TIP
  85.  
  86.   if group.gold < L(4) GOTO BROKE;
  87.  
  88.   dec( group.gold, L(4) );
  89.  
  90.   ON L(1) GOTO TIP1, TIP2, TIP3, TIP4, TIP5;
  91.  
  92. :TIP1
  93.   writeln( ">Heard any good ones lately?" );
  94.   writeln( "(the bartender ignores you..)" );
  95.   inc( group.gold, L(4) );
  96.   goto LOOP;
  97.  
  98. :TIP2
  99.   writeln( ">It's pretty slow around here.." );
  100.   writeln( "It's the weather.. You'll get used to it.." );
  101.   goto LOOP;
  102.  
  103. :TIP3
  104.   loadhint;   ! Loads a random hint into a string variable !
  105.   writeln( S0 );
  106.   goto LOOP;
  107.  
  108. :TIP4
  109.   writeln( ">Heard any good.. Hic!.." );
  110.   writeln( "You're drunk.. You should leave now." );
  111.   goto LOOP;
  112.  
  113. :TIP5
  114.   writeln( ">Hic! 'scuse me.. Hic! Burp!" );
  115.   writeln( "No drunks allowed on the premises.." );
  116.   STOP;
  117.  
  118. :BROKE
  119.   writeln( "You don't have enough money!");
  120.   goto LOOP;
  121.  
  122. !
  123. ! Conversation
  124. !
  125. :XTALK
  126.   on L(1) GOTO TALK1, TALK2, CHAT;
  127.  
  128.   writeln( ">Hic! Hic! Burp! 'Scuse me.. Hic!" );
  129.   writeln( "You'd better watch your drinking buddy.." );
  130.   goto LOOP;
  131.  
  132. :TALK1
  133.   writeln( "Does this look like a social club?" );
  134.   goto LOOP;
  135.  
  136. :TALK2
  137.   writeln( "I'm busy.  Ask me again later.." );
  138.   goto LOOP;
  139.  
  140. :CHAT
  141.   writeln( "What would you like to talk about?" );
  142.  
  143. :CHAT1
  144.   L(3) = getstr("Name","Beer","Tip","Job","Bye");
  145.   if L(3) = -1 then 
  146.     writeln( "Ok." );
  147.     goto LOOP; ! Pressed ESCape !
  148.   endif;
  149.  
  150. ! First, see if the keyword typed is in the character's text block !
  151.   if dotext( S0 ) then
  152.     if L(3) = 4 then
  153.       STOP;
  154.     endif;
  155.     goto CHAT1;
  156.   endif;
  157.  
  158. ! It didn't, so try the predefined ones..
  159.   on L(3) goto CNAME, CBEER, CTIP, CJOB, CSTOP;
  160.  
  161. ! Nope, try a 'DEFAULT' line
  162.   if not dotext( "DEFAULT" ) then
  163.     ! didn't have 'default' in the text block, so give standard default !
  164.     writeln( "I don't know anything about that!" );
  165.   endif;
  166.   goto CHAT1;
  167.  
  168. :CNAME
  169.    writeln( "My name is ", NPC.name, "." );
  170.    GOTO CHAT1;
  171.  
  172. :CBEER
  173.    writeln( "A beer sells for ", $npc.value, " the pretzels are free." );
  174.    GOTO CHAT1;
  175.  
  176. :CTIP
  177.    writeln( "Most people give ", $L4 );
  178.    GOTO CHAT1;
  179.  
  180. :CJOB
  181.    writeln( "I sell {beer}!" );
  182.    GOTO CHAT1;
  183.  
  184. ! Feel free to expand on this list.. !
  185.  
  186.